!---------------------------elemtb.f------------------------------------
!  Version: 051219-1435
!-----------------------------------------------------------------------
!23456789|123456789|123456789|123456789|123456789|123456789|123456789|12

! ----------------------------------------
! PEGS5 common file for ELEMTB
! ----------------------------------------

      integer net, istatb
      double precision watbl, rhotbl, itbl
      COMMON/ELEMTB/WATBL(100),RHOTBL(100),ITBL(100),ISTATB(100),NET

!--------------------------last line------------------------------------
